﻿Public Class MuhYasOdemeEmri : Inherits Process

	Dim donem, acik, odetar As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Yaşlılık ödeme emri", "Dönemi girin.")
				donem = AddCombo("Donem", "Maaş dönemi", Emeklilik.Maas.DonemSource, "nl;width=10", "--first--")
				StartBody()
				odetar = AddDate("odetar", "Ödeme tarihi", "", Today.YMD)
				acik = AddText("acik", "Açıklama", "width=40;nl")
				AddList()
				List.AddColumns("hesapno(Hesap no.;c;80),hesapadi(Hesap adı;100%l),tutar(Tutar;m;90)")
			Case EventType.ValidateForm
				Rs = Muhasebe.Yaslilik.Dagilim(Remote, donem.Get)
				List.DataSource = Rs
				acik.Set(MonthName(Mid(donem.Get, 5, 2), True) & " " & Mid(donem.Get, 1, 4) & " YAŞLILIK MAAŞ.ÖD.")
				Buttons.Show("Next")
				Help = "Hesap toplamları listelenmiştir. Ödeme emrini oluşturmak için Devam butonunu kullanın."
				e.Result = True
			Case EventType.Save
				If Not Confirm("Ödeme emri oluşturma işlemini onaylıyor musunuz?") Then Return
				Dim Result = Muhasebe.Yaslilik.OdemeEmriYaz(Remote, donem.Get, odetar.Get, acik.Get, Rs, User.Kaykul)
				If Result.ErrorOccured Then
					Warning("Kayıt yapılırken bir hata oluştu.", Result.ErrorMessage)
					Return
				End If
				Info("Ödeme emri kaydı yapıldı. Ödeme emri numarası : " & Result.Kod)
				Close()
		End Select
	End Sub

End Class
